home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / 128 multi ram (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  42 lines
  1. 10 rem *** 128 multi ram *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=3072
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(66)*256+peek(65):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:d=d+1:ifd<31then40
  10. 100 print"the data is ok.":print:sys3072:print"128 multi ram is active.":new
  11. 110 data169,33,162,12,141,58,3,142,59,3,173,93,1048
  12. 120 data13,208,17,162,10,142,93,13,157,0,19,157,991
  13. 130 data0,104,157,0,180,202,16,244,96,165,127,208,1499
  14. 140 data51,165,211,201,4,208,45,165,212,205,95,13,1575
  15. 150 data240,38,141,95,13,205,96,13,240,30,141,96,1348
  16. 160 data13,201,1,208,11,141,95,13,169,4,141,94,1091
  17. 170 data13,76,58,12,201,3,144,8,201,7,144,7,874
  18. 180 data201,60,240,89,76,225,197,174,98,13,141,98,1612
  19. 190 data13,173,16,18,157,100,13,173,17,18,157,104,959
  20. 200 data13,174,96,13,189,96,13,133,46,189,100,13,1075
  21. 210 data141,16,18,189,104,13,141,17,18,173,94,13,937
  22. 220 data201,4,240,9,169,0,141,94,13,189,108,13,1181
  23. 230 data44,169,255,133,54,133,58,141,19,18,169,0,1193
  24. 240 data170,133,45,129,45,133,53,133,57,141,18,18,1075
  25. 250 data232,134,45,173,96,13,141,97,13,169,160,162,1435
  26. 260 data39,157,0,4,202,16,250,162,3,181,243,157,1414
  27. 270 data117,13,169,0,149,243,202,16,244,232,142,0,1527
  28. 280 data255,166,235,164,236,142,115,13,140,116,13,32,1627
  29. 290 data125,255,19,18,32,82,65,77,32,61,32,0,798
  30. 300 data173,94,13,240,18,169,128,141,94,13,32,125,1240
  31. 310 data255,78,79,82,77,65,76,0,76,19,13,173,993
  32. 320 data97,13,201,4,176,11,32,125,255,70,82,69,1135
  33. 330 data69,0,76,19,13,24,105,45,32,210,255,32,880
  34. 340 data125,255,32,42,42,42,32,66,89,84,69,83,961
  35. 350 data32,70,82,69,69,32,61,32,0,173,18,18,656
  36. 360 data56,237,16,18,8,170,172,19,18,40,176,2,932
  37. 370 data136,56,152,237,17,18,32,50,142,169,146,32,1187
  38. 380 data210,255,174,115,13,172,116,13,24,32,240,255,1619
  39. 390 data162,3,189,117,13,149,243,202,16,248,76,225,1643
  40. 400 data197,0,128,128,255,4,4,19,28,104,180,3,1050
  41. 410 data3,3,3,19,28,104,180,28,104,180,255,0,907
  42.